﻿Module Module1

    Sub Main()
        Dim num As String
        Dim fecha As String
        Console.Title = "Ejercicio 3 condicionales if"
        Console.Write("Introduce un numero ")
        num = Console.ReadLine()
        If IsNumeric(num) Then
            Console.WriteLine("Bien introducido")
        Else
            Console.WriteLine("Lo que has escrito no es un número")
        End If

        Console.Write("Introduce una fecha ")
        fecha = Console.ReadLine()
        If IsDate(fecha) Then
            Console.WriteLine("Bien introducido")
        Else
            Console.WriteLine("Lo que has escrito no es una fecha")
        End If
        Console.ReadKey()
    End Sub

End Module
